1 PRINT"[147]":P=49152:POKEP+4129,0:POKEP+4128,0
2 DEF FNA(G)=INT(G/10)*16+(G-INT(G/10)*10):POKE792,193
3 FORN=0TO91:READD$:Q=ASC(LEFT$(D$,1))-48:W=ASC(RIGHT$(D$,1))-48
4 POKEP+N,(Q+(Q>9)*7)*16+(W+(W>9)*7):NEXT
5 U=P+48:H=INT(U/256):L=U-H*256:J=INT(P/256):I=P-J*256
6 POKEP+8,L:POKEP+9,H:POKEP+16,L:POKEP+17,H:POKEP+24,L:POKEP+25,H
7 POKEP+81,I:POKEP+86,H:POKEP+7182,PEEK(P+7182)OR128:SYSP+79
8 INPUT"HOURS";Z:POKEP+7179,FNA(Z):INPUT"MINUTES";X:POKEP+7178,FNA(X)
9 INPUT"SECONDS";C:POKEP+7177,FNA(C):POKEP+7176,0:PRINT"[147]":NEW
10 DATAA2,00,AD,0B,DC,29,7F,20,00,00,A2,03,AD,0A,DC,20,00,00,A2,06,AD,09,DC
11 DATA20,00,00,AD,08,DC,A9,BA,8D,22,04,8D,25,04,A9,07,8D,22,D8,8D,25,D8
12 DATA4C,31,EA,48,29,F0,4A,4A,4A,4A,18,69,B0,9D,20,04,68,29,0F,18,69,B0,9D
13 DATA21,04,A9,07,9D,20,D8,9D,21,D8,60,78,A9,00,8D,14,03,A9,00,8D,15,03,58,60